/*

*** This do file creates the replication results for 

Are Left-Wing Party Strength and Corporatism Good for the Environment? A Panel Analysis of 21 OECD Countries, 1980-1998, Ecological Economics 45 (2), 2003, pp. 203-220

Eric Neumayer (LSE)																			

Please report any errors to e.neumayer@lse.ac.uk

*/

version 8

use "Article for Ecological Economics (left-wing & corporatism).dta", clear


* co2 full period
xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)

* co2 1989 onwards
preserve
drop if year<1989
xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnco2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)
restore

* so2
preserve
drop if country=="Japan"
drop if country=="Australia"
drop if country=="New Zealand"
xi: areg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnso2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)
restore

* no2
preserve
drop if country=="Japan"
drop if country=="Australia"
drop if country=="New Zealand"
xi: areg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnno2 lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)
restore

* co
preserve
drop if country=="Japan"
drop if country=="Australia"
drop if country=="New Zealand"
drop if year<1990
xi: areg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnco lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)
restore

* voc
preserve
sort country
drop if country=="Japan"
drop if country=="Australia"
drop if country=="New Zealand"
drop if year<1990
xi: areg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust
xi: areg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars i.year, absorb(country) robust cluster(country)
xi: xtreg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust
xi: xtreg lnvoc lngdp lneff manufact cleansh leftc lefts2 llseat lncars siaroff i.year, re robust cluster(country)
restore



